program p10_2;
var	S:string[255];
	i:integer;
	
begin

s:='HELLO TherE ...Z';
writeln(s);

for i:=1 to length(s) do begin
	if ( s[i] in ['A'..'Z'] ) then
		begin
		s[i]:=chr(ord(s[i]) - ord('A') + ord('a'));
		end;
	end;

writeln(s);
end.
